home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / ipdldemo.exe / lha / GTOGDIR.XFU < prev    next >
Text File  |  1991-02-27  |  271b  |  3 lines
  1. %%HP: T(3)A(D)F(.);
  2. \<< IFERR OBJ\-> HOME xFiD EVAL DUP SIZE \-> vp s \<< IF s 1 > THEN 1 s 1 - FOR i vp i GET IF { HOME UPDIR } OVER POS 15 TVARS 3 PICK POS OR THEN EVAL ELSE DROP 0 DOERR END NEXT END IF VARS vp s GET POS NOT THEN 0 DOERR END \>> THEN CLOSEIO END \>>
  3.